dr='n:'
f0='bjsdrug.dbf'
f1='drugs'
sele 1
use &dr&f1
zap
appen from &dr&f0
repl all whol_unit with .t. for buy_sell_r=1

f0='bjsdisp.dbf'
f1='dispos'
sele 1
use &dr&f1
zap
appen from &dr&f0
repl all whol_unit with .t. for buy_sell_r=1
